home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / mac / files / ID99MENU.DIR / 00029_title list script.ls < prev    next >
Encoding:
Text File  |  1999-04-29  |  3.1 KB  |  92 lines
  1. property s, mysmallloc, mysmallwidth, mysmallheight, mymediumloc, mymediumwidth, mymediumheight, mybwmember, mycolormember, mysmallrect, mymediumrect, mypercent, fullon, insmall, inmedium, scaleup, scaledown, scalepercent, mymerit, mymovestart, myDelay, goscreenshot, mycurrwidth, mycurrheight, mycurrloc, mybigmember, switchedtext, inpartner, mytitle, dochangetitle, changetime, mynextbwmember
  2. global learnedsizes, tickrate, firstthumbnail, screenshotloc, screenshotwidth, currtitle, screenshotheight, firsttitle, viewby, titlewidth, titleheight
  3.  
  4. on beginSprite me
  5.   s = me.spriteNum
  6.   mynextbwmember = the number of member ("title" && s - firsttitle + 1 && "bw")
  7.   preloadMember(mynextbwmember)
  8.   mynextbwmember = the number of member ("designer" && s - firsttitle + 1 && "bw")
  9.   preloadMember(mynextbwmember)
  10.   mynextbwmember = the number of member ("client" && s - firsttitle + 1 && "bw")
  11.   preloadMember(mynextbwmember)
  12.   firstmember = the number of member (viewby && s - firsttitle + 1 && "bw")
  13.   set the memberNum of sprite s to firstmember
  14.   mybwmember = the number of member ("title" && s - firsttitle + 1 && "color")
  15.   preloadMember(mybwmember)
  16.   mynextbwmember = the memberNum of sprite s
  17.   cmember = member(mybwmember).name
  18.   mytitle = word 2 of cmember
  19.   delete char -30001 of cmember
  20.   if the last char in cmember = SPACE then
  21.     delete char -30000 of cmember
  22.   end if
  23.   put " color" after firstmember
  24.   mycolormember = the number of member cmember
  25.   mypercent = 0
  26.   insmall = 0
  27.   set the width of sprite s to titlewidth
  28.   set the height of sprite s to titleheight
  29.   mysmallrect = the rect of sprite s
  30.   mysmallwidth = the width of sprite s
  31.   mysmallheight = the height of sprite s
  32.   inpartner = 0
  33. end
  34.  
  35. on prepareFrame me
  36.   if not learnedsizes then
  37.     exit
  38.   end if
  39.   if dochangetitle then
  40.     if not member(mynextbwmember).loaded then
  41.       preloadMember(mynextbwmember)
  42.     end if
  43.     if the ticks > (changetime + ((s - firsttitle) * 4)) then
  44.       insmall = 1
  45.       dochangetitle = 0
  46.     end if
  47.   end if
  48.   if inside(the mouseLoc, mysmallrect) or inpartner or (currtitle = (s - firsttitle + 1)) then
  49.     insmall = 1
  50.   end if
  51.   if insmall then
  52.     if mypercent = 100 then
  53.       insmall = inside(the mouseLoc, mysmallrect)
  54.       exit
  55.     end if
  56.     mypercent = min(100, mypercent + tickrate)
  57.   else
  58.     if mypercent = 0 then
  59.       exit
  60.     end if
  61.     mypercent = max(0, mypercent - tickrate)
  62.   end if
  63.   if mypercent >= 50 then
  64.     set the memberNum of sprite s to mycolormember
  65.     mybwmember = mynextbwmember
  66.   else
  67.     set the memberNum of sprite s to mybwmember
  68.   end if
  69.   newwidth = float(mysmallwidth) / 100 * (abs(50 - mypercent) * 2)
  70.   set the width of sprite s to newwidth
  71.   set the height of sprite s to mysmallheight
  72. end
  73.  
  74. on changetitle me, towhat
  75.   mynextbwmember = the number of member (towhat && mytitle && "bw")
  76.   dochangetitle = 1
  77.   changetime = the ticks
  78. end
  79.  
  80. on mouseUp me
  81.   sendAllSprites(#growdown, "gold")
  82.   sendAllSprites(#growdown, "silver")
  83.   sendAllSprites(#growdown, "bronze")
  84.   sendSprite(s - 100, #mouseUp, 1, s - firsttitle + 1)
  85. end
  86.  
  87. on checkclick me, clickedloc
  88.   if inside(clickedloc, mysmallrect) then
  89.     mouseUp()
  90.   end if
  91. end
  92.